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You read it first here. (Maybe me should gloat and add "of course*.) 



It was in July. 
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We're really gratified by the 
response to the PAINPOW. Our 
subscription list is really growing 
and we like to think that's 
because you like what you see. 
Thanks for your support! 

We'd also appreciate your help 
in spreading the word about the 
RAINBOW. And. although we know it 
sounds trite, please patronise our 
advertisers. After all. they care 
enough about YOU and YOUR computer 
to advertise in the ONLY monthly 
magazine devoted exclusively to the 
Color Computer. 



A REAL. BIG OME ! 

There are a lot of goodies in 
the November issue of the RAINBOW! 
We hope you enjoy them. 

There is a Videotex downloading 
routine (that can be used with any 
host computer system). our 
basketball stats program, a takeout 
on Tandy's new disc drive, a 
biorhythm program ... and a whole 
lot more. 

Next month ... some special 
seasonal stuff is comtemplated. 
But. too, there's a great program 
that will allow you to make backup 



Commercials for the RAINBOW 
aside, the Tandy Disc system is a 
reality. We know, because there is 
one sitting right here next to our 
Color Computer. (And we didn't pull 
any strings to get it, either. ) By 
now, you can probably see one at 
your local Radio Shack computer 
center or store. 
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For your *599, you get a drive, 
a drive controller (which is, 
actually, a large-size ROM Cart), a 
ribbon cable that hooks the cart up 
with drives and 1, and manual and 
a free (!) disk. Incidentally, the 
bo:: all this comes in says "custom 
mf g. in Japan. " 

The whole thing is packaged 
very well and comes in two boxes 
inside the shipping box. Obviously, 
Tandy will use the same packaging 
materials for the other drives. The 
in the familiar 
format of "Getting 
"Going Ahead." Its 
Computer Disc System" 
"Spinning Along..."?) 
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DISC 'Continued from pg, I) 

and features a new character to go 
with the drawings of the Color 
Computer — a disc with arms and 
legs. As usual, the documentation 
is excellent. It is .sort of a cross 
between the simple (in the early 
going) to a little complex (when 
sequential and direct access formats 
are discussed). We do wish there 
were a little more detail — sans 
embedded formats — near the end of 
the book. 

As to the drive itself? it has 
worked flawlessly since its arrival 
several days ago. And, because the 
operating system is ROM-based, its 
use is transparent to the user. In 
ether words, its there when you want 
it but it doesn't interfere with you 
in any way. And, because your 
cassette port isn't involved in this 
new system, you can CLOAD a program 
from tape and then SAVE it onto disc 
directly. I had two substantial 
tapes full of games — and I 
transferred them one at a time with 
total ease. Now they are on disc, 
and totally accessable in just 
seconds. The longest program I have 
which took two and one-half 
minute* to load from tape — loaded 
f> oni disc in 12 seconds. 



PROGRAM QUICKIE. . . 

WHERE AM I?? 



You probably know you can make 
multiple saves to tape simply by 
enclosing the CSAVE command in a 
loop. And, its a good idea to do 
this because there is no way to 
verify a tape write and if there is 
a tape problem, your copy can be 
lost. 

Sometimes, though, those saves 
are long and you just sit there 
wondering "where am I?" 

Here's a way to figure it out: 
Just put a counter in your direct 
command. Then, you'll know what 
CSAVE you are on. The direct 
command line looks like this: FOR 
X=l TO 3: PRINT "ON SAVE" X: CSAVE 
"filename" :NEXT X 

If you want to save more or 
less than three programs, change the 
three in the X-loop. If you want to 
put space between the individual 
saves, add the following after the 
last colon above: MOTOR ON: FOR Y=l 
TO 750 :NEXT Y: MOTOR OFF: 



We were disappointed there is 
AUTO command to generate 
automatic line numbers in the disc 
utilities. (If this bugs you as 
much as it does us, chock the review 
en MASTER CONTROL in this issue for 
h solution.) Yet, one of the other 
big problems from the tape system 
hits been solved. Through its VERIFY 
command, the disc will check itself 
j be sure your program was saved 
accurately. No more triple saves 
and prayers. 

The DOS, which is referred to 
in the documentation as "Disc 
Basic," is pretty much the same as 
that available for the Model III, 
without the utilities. The discs 
are the same as those used by Model 
III. 
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When you gather your friends together for a TV game or two this coming 
basketball season — set up a second TV and keep score for them with 
STATSKEEFER. 

STATSKEEPER, in a larger version, was used last season to keep a full 
set of statistics on some games for the University of Louisville Cardinals. 
Because all statistics are kept up to date as of the time things occur, the 
final stats can be done instantly when the game ends. That program keeps 
track of every possible activity — including minutes played. 

STATSKEEPER is designed to be used at home (unless you want to take 
your Color Computer to the game). Because of that, and in an effort to get 
a professional-look box score display, the number of statistics categories 
are limited to field goals attempted and made and free throws attempted and 
made. STATSKEEPER keeps up with total points for each player and team and 
computes free throw and field goal percentages. 

You use the "enter" option when a player comes into the game. This 
controls who is displayed in the bo>: score. Be sure to "enter" the 
starting five. If you forget, the statistics will still accumulate — they 
just won't be displayed. 



It has been our experience that other statistical categor ies<such as 
rebounds, minutes played and so on) are most difficult to determine 
watching on TV. The field goal attempts might be a little difficult, but 
if you can concentrate on those, your statistics should come out all 

riqnt - (Continued on Page S) 



. . . FOR UNDER $0.75 (that's SIX BITS) APIECE! 

For the COLOR COMPUTER: 



You just spent your vacation money on the Extended 
BASIC Color Computer, and now you want to buy 
software!!!??? 

Don't skip meals - get CHROMASETTE Magazine! Each 
month your computer will get a balanced diet of 6 or 
more programs on cassette (just load and run!). Along 
with the tape comes some notes on the programs, along 
with tidbits on the Color Computer world 



The Fine Print: 

Issues are sent First Class Mail. 

All issues from July 81 on available - ask lor list. 

Pro3rams are lor the Extended BASIC model only 
Calif residents add 6% to single copes Overseas — 

add J10 to subscriptions, add 11 to single copies 
Sent AO rate 

MasterCard/Visa welcomei 




Chromasette Masazine 

— for those who relish every byte (that pun even hurt me). 




Chromasette Masazine 

'PO Box 1067 Santa Barbara, CA 93102 
1(805) 963- 1066 



The Bottom Line: 

1 year (12 issues) J4500 

6 months (6 issues) $25.00 

Single copies JS 00 



Faqe 4 
SOFTWARE REVIEW... 



MAS" 



R CONTROL 



custom key for that 
parameters — and 
hours of typing. 
excellent feature. 



whole list of 

save 1 i teral ly 

This is an 



MASTER CONTROL is the best 
thing that's happened to tired 
fingers since molded keyboards. 
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This little gem (available from 
SOFT SECTOR MARKETING, 6250 
Middle-belt, Garden City, MI 48135 
for $24.93) automatically enters 50 
commands at the touch of a finger. 
All you have to do is press the down 
arrow and any of the keys, which are 
marled with EASIC statements, and 
the statement you want appears on 
the screen. For example, if you 
have the automatic numbering in 
c-ffect, you can write a line number 
and the DATA statement by pressing 
the "ENTER", down arrow and "D" keys 
only. 

Fcr those of us who frequently 
'•■ips "IF" as "OF" and who seem to 
always hit the "#" instead of the 
r $" in CUR*, this is a real plus 
rh<it kills those syntax errors. The 
-ctfimands which need them (such as 
1111.'$) that have opening parentheses 
in them have the parentheses opening 
as part of the assigned statement. 

In addition, the MOTOR. TRACE, 
AUDIO and RUN commands execute 
directly — without your having to 
press the ENTER key. This really 
saves a lot of time. 

Finally, there is what SOFT 
SECTOR describes as a "custom key", 
which you can program to be anything 
you want. This is a major bonus! 
If, for instance, you are running 
though a long series of IF 
statements which a couple of 
parameters, you can program the 



How do you keep track of what 
all the keys stand for? SOFT SECTOR 
supplies a template to overlay on 
the keyboard. That also means you 
can take it off if you want. While 
the template itself has a sticky 
backing, you can stick it on some 
cardboard and just cut holes for the 
keys. We did this and it worked 
very well. 

MASTER CONTROL is written in 
machine code, so it is very fast. 
It only takes up 1100 bytes and can 
be relocated — especially important 
if you have or anticipate upgrading 
to 32K. It does require 16K to 
operate, but does not require 
Extended Basic. 

However a number of the 
commands »r& Extended commands. 
They, obviously, won't work without 
Extended. 

MASTER CONTROL is a workmanlike 
program that does everything well. 
If you are doing any amount of your 
own programming, it is well worth 
the moderate cost in terms of typing 
hours saved alone. 



MAILING NOTICE 



From time to time, the RAINBOW 
may make its mailing list available 
to highly qualified firms which 
produce products for the Color 
Computer. 



While we believe 
information will be helpful to 
we respect 
will not 
address to 
inform us 
desire. 
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your right to privacy and 

disclose your name or 

anyone if you will merely 

that this is your 



Thank you. 



Hardware Review. . . 

SER I Al_/ PARALLEL 
CONVERTER 



Program >inii ckie. . . 



IMES SQUARI 
HEADER 
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O.K.i you're Just not satisfied 
with either of the 'printers Radio 
Shack has out for the Color Computer 
— either the Line Printer VII or 
the newest one. the Line Printer 
VIII. 

Or. maybe, you just want to be 
able to switch printers at some time 
in the future and keep your present 
LP VII or VIII for now. 

The choice is yours, but you 
can gain some real flexibility with 
the PI80C SERIAL/ PARALLEL CONVERTER 
from THE MICRO WORKS (P.O. Box 1110. 
Del Mar, CA, 92014). 
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We've had the PIB0C uf and 
running with an Epson printer for 
two months now. It has worked 
perfectly. Not a single hitch. 

The PI30C comes with a four pin 
DIN plug which fits into the Color 
Computer's Serial port and a power 
cord which plugs into a standard 
socket. The other end is an edge 
card which has the "standard" 
Centronics configuration. You plug 
one end of a printer ribbon cable 
into the PIS0C and the other into 
your printer. That's all! 

Since the LP VII and LP VIII 
both have parallel connections, you 
can use your PI3QC with one of those 
printers ... as well as with any 
other printer Radio Shad; sells. 
You can also plug into an Epson, 
Centronics, Okidata, etc., etc. 
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So, you've written a neat 
program but you don't really have a 
good way to introduce it ... and 
you're tired, anyway. 

Here's a quick way to use some 
of the more interesting capabilities 
of the Color Computer to produce a 
"header" for a program that's. as 
they say, fast and dirty. 

This little gem will give you a 
Times Square-like message center on 
your screen. The words will just 
scroll along. And. from the code 
below, you'll see that it's easy to 
produce. You might even want to use 
it to leave messages for other 
members of the family! * 

For those without Extended 
Color Basic, change the STRING* 
(16,32) in line 3 to 16 blank 
spaces. Line 11 can be deleted, its 
just there to keep the display neat 
in this example. 

Here's the RPQ (RAINBOW Program 
Ouickie) — with thanks to Joe 
Bennett — s 



1 CLS0 

3 A*=" THIS PROGRAM IS 

BROUGHT TO YOU THROUGH THE 
RAINBOW. . .THE MONTHLY MAGAZ 
INE FOR COLOR COMPUTER USER 
S. YOU CAN PUT YOUR OWN MES 

SAGE HERE. "+STRING* 

(16,32) 

5 FOR A=l TO LEN(A*)-15:E1=E1 
+1:IF El>4 THEN El=l:E=1125 
:EE=1140 

7 PRINTSi328.MIDS(A*.A, 15) ! 

9 SOUND RND ( 240 ) , 1 : NEXT A 



11 GOTO 11 



In short. this fine piece of 
hardware qives ypu complete 
flexibility to buy whatever printer 
you wish without costing an arm and 
a leg for special printer 
features. 

This is a good buy. 
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MOWS YOUR DAY? 
MEED EIORMYTHM HELP? 



Here's another program from JARB Software that mill help 
dealing with everyday, life. 



you out in 



Its called JAREIORHYTHM and it will generate a complete chart for you. 
The chart can be as short as a day, or as long as a year. And, the chart 
will graphically display just how your biorhythms fluctuate over their 
different cycles. 

You do need a printer for this program. But it comes out with a 
handsome display. We've heard that programs such as this can be a big hit 
at flea markets! 

For those of you with tired fingers, JAREIORHYTHM can be obtained on a 
tape with PSYCHIC APTITUDE TEST (from RAINBOW Vol. I, No. 3) for *14.95 by 
writing JARB at 1169 Florida St., Imperial Beach, CA 92032. Please include 
$1 for postage and handling. 

The Listing! 



10 CLE: PRINT3196, TAB (11) "BIORHYT 
HM" : PRINTTAB ( 15) "BY" : PRINTTAB (9) 
"JARB SOFTWARE": PRINT: PRINT: PRIN 
TTAB(4>" (C) JARB SOFTWARE 19B1": 
FCRI=iT02500:NEXTI 

20 CLS:PRINT3160, "THIS PROGRAM I 
S DESIGNED TO WORK"; :PRINT"WITH 
THE LINE PRINTER VI I . " :PRINT"WHI 
LE IT WILL WORK WITH OTHER": PRIN 
T" PR INTERS, IT MAY NOT FORMAT ON 
": PR I NT "THE PRINTER AS DESIGNED. 

30 PR I NT "YOU MUST HAVE A PRINTER 

ON-LINE": PR I NT "TO OPERATE THIS 
PROGRAM !!!!!!!!" 

40 FRINT:LINEINPUT"TO BEGIN, PRE 
S3 <ENTER> KEY.";RD* 

*********** 
JARBBIORHYTM 

BY 
JARB SOFTWARE 

WRITTEN BY 
J. E. BENNETT 

AMD 
JOHN L. URBAN 
(C> JARB SOFTWARE 
1981 
140 '************ 
150 P5=PEEK (65314) : IFF5=40RPS=6T 
HEN20C ELSE 160 
160 CLS:FRINT3224, "PRINTER NOT 

N-Lir4E ":PRINT"D0 YOU 

HAVE A PRINTER"; : INPUTX* 

170 IFLEFT*(X*. 1 ) <>"Y"THEN200 

180 Ci-S:PRINT3r224,"YES?":FRINT"P 

LEASE PLACE PRINTER ON-LINE. ": LI 

NEINPUT"FRESS ENTER WHEN ON-LINE 

.";X* 



SO ' 
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60 ' 
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80 ' 


* 


90 ' 
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100 
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110 
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115 
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' * 


130 
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190 PS=PEEK (65314) : IFPS=40RPS=6T 

HEN200ELSE160 

200 CLEAR200 

210 CLS:PRINT5>224, "PRINTING TITL 

E.. . .PLEASE WAIT. " 

220 L=0:T=25:P=3. 1415926535 

230 PRINT«-2,CHR*(31) :PRINT#-2,T 

AB ( 16) "BIORHYTHM" : PRINTS-2. TAB( 1 

9) "BY":PRINT#-2,TAB(14)"JARB SCF 

TWARE" 

240 PRINT#-2,CHR*(30) ;TAB(32) " (C 

) JARB SOFTWARE 1981 " ; CHR* ( 10) ; C 

HR*(10);CHR*(10) 

250 B*="YES":CLS:FRINTS)224, "I AM 
NOW READY FOR FURTHER INPUT"; :F 

0RI=1TC1000:NEXTI 

257 L=0:T=25:P=3. 1415926535 

260 CLS : PR I NT3224 , " " : L I NE I NPUT " 

WHAT IS YOUR NAME?";N* 

270 CLS:PRINT3224, "": I NPUT "THIS 

CHART IS FOR HOW MANY DAYS": El 

275 GOSUB 1650 

280 ZZ=0 

300 CLS: FRINT5224, "ENTER BIRTH D 

ATE " 

310 GOSUB 550 
313 GOSUB 1700 
G0SUB720 
JB=JD 
340 CI_S:PRINTS>224, "ENTER START D 

ATE FOR CHART " 

350 ZZ=1 

360 G0SUB550 

363 GOSUB 1750 

370 GCSUB720 

380 JC=JD 

390 IF JO=JB THEN 410 

(Continued on Page 14 ) 
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The second program in SPECTRAL 
ASSOCIATES' Space Trilogy is called 
COLOR METEOROIDS, and it is — like 
its brothers COLOR SPACE INVADERS 
and SPACE WAR — a fast-action, 
machine language game that mill 
bring hours of delight to 
devotees. 

Although you need joysticks to 
play, you do not need Extended Color 
Easic. This can be a real plus for 
some, and it also shows just what 
you can do with machine language. 
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One of the things you can do 
with COLOR METEOROIDS that you can't 



do in the arcades is control the 
position of your gun. Here, you 
have full control — as well as 
control of the ship itself. And for 
the really adept, you get a tonus 
ship for every 10,000 points. 

There's also a demonstration mode 
for cocktail party conversation. 

Finally, there is an option 
that will allow your ship to move 
into hyperspace. Here, you just 
blip out of one location and into 
another. Put, you must e::cercise 
caution — sometimes various meanies 
in hyperspace can destroy your 
sh i p. 

The graphics of COLOR 
METEOROIDS are excellent and the 
action is fast-paced. The sound 
effects, despite a disclaimer from 
SPECTRAL, are good, as well. 

That, combined with special 
added effects such as difficulty 
levels, hyperspace, and an alien 
space ship, make COLOR METEOROIDS 
< $21.93 from SPECTRAL, 141 Harvard 
Ave., Tacoma, WA 98466) an 
excellent buy. 




Editor: 

Us enjoyed the RAIIINU very 

audi. I'b into wys the Color 

Cctputcr can help arcund the house 

and »y husband is really into 
}?.*ts. 

Co yoj 1 now of a PACMAN saw 
tut is available? 

kATHf ttEltWH 
C.erUnd Park, Kansas 



Editor: 

I si a first tii.e coiFuter user 
and fed frustrated by the iaoarines 
as all the information is written 
for other cciputers. 

Uhat I uould really lite is a 
list of functions for Ifadel I and 
III and the saoe set of ccutands for 
ty color co»F"ter. 

JAMES BAUHER 
Spokane, HA 



Editor: 

1 recently purchased a coFy of 
the RAIIIBOU (12) and uas quite 
pleased with the articles and 
especially with LASER STAR. 

Just one comr.cn t about the last 
issue: In line 10 of the Graphics 
Printer, shouldn't '127' be '31'? 
Also, yew choice of X for the 
vertical and Y for the hcrironal 
coordinates is confusing. Ibrully, 
X is the hori:onal. 

KATHY GOEBEL 
Detroit 

(Ed. Note: *31' works, too. 
Thanks for the ir.for»ation. As to 
the X and Y, you're right. It »ust 
have been a late night when that one 
was written! ) 
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STATS i Continued from pp. 3) 



Don't worry about length of names in the box score, as they mill be 
chopped off to fit. We have made provision for games in which more than 
100 points are scored, however, to satisfy you NBA fans. 

All pregame entries (such as players names and numbers) are done 
through regular input statements. However, in order to speed execution of 
the program, all statistics are entered via INKEY*. The exception to this 
is the "Continue?" input when a box is being displayed. This allows you to 
retain the box on the screen for study while things are slow. 

The only restriction in the program is that you can Use only 12 
players. This is simply in an effort to retain all players on the screen 
— and we have left "room" in the DIM statements for 16 if you want more 
people and less heading information. It you opt for the 12 players, simply 
use 11 and label the 12th "others." 

Two hints! If you hit the wrong letter or number while in the 
statistics collecting part of the program, just keep hitting the RETURN key 
until you get back to the "ENTER PLAYER'S TEAM" prompt. Once you have 
initialised the program, you can get back to that prompt by EREAKing and 
entering GOTO 210. 



This program is written for Extended Color Basic, but the few things 
it uses from that instruction set are simple to convert. The 
STRIN6t(32, "=" > is simply a line of 32 equals marks. LIME INPUT can be 
replac=d by INPUT, but we used it for display purposes. 



9 ' 

10 

11 



The listing: 

************************** 
*************************** 

'** STATSKEEPER PR06RAM ** 



13 
14 

15 
16 
17 
25 



'A* 

'** 
'** 
'** 



(c) 1981 



** 
** 
** 

** 



F A L S F T 
'************************** 
*************************** 
DIM HN*(16> ,HN(16) ,VN»(16> ,VN 
(16) ,H3(16> ,HS(16),HF(16) ,HL(16) 
,;-;P(16) ,HT(16) ,VT(16),VG(16) ,VS( 
16),VF(16),VL(16>,VE<16> 

30 BSS= M 7. V. »* -*# #«* 

31 BZ*«" PLAYER 

-FTA PTS" 

32 BT*«" TOTALS 
-tt* »«#" 

33 ?C*=" 
#.«#•/." 

35 CL3« PRINT tLINEINPUT "NAME THE 

HOME TEAM " ; H*:LINEINPUT "NAME 
THE VISITING TEAM " ; V» 

40 CLE: PR I NTT ABO) " HOME TEAM 

41 PRINT 

45 INPUT "HOW MANY PLAYERS ARE E 

LIB IDLE TO PARTICIPATE FOR TH 

E HOME TEAM";SS 

50 FOR X=l TO SS 

55 IL*=STRING*(32,"="):PRINTIL*; 



FGM-FGA FTM 



»» -ftft »# 



»##.tt#7. *# 



60 PR I NTH*" PLAYER'S NAME": PRINT 

TAB (4) ; : INFUTHN*(X> 

70 PRINTHN* ( X ) " ' S NUMBER" ; : INPUT 

HN(X) 

SO NEXT X 

90 CLS:FRINTTAB(6) " VISITING 

TEAM " 

95 INPUT "HOW MANY PLAYERS ARE E 

LIGIBLE TO FLAY FOR THE VISIT 

0RS";VV 

100 FOR X=l TO VV 

103 PRINTTAB(IO) " (E)NTERED GAME 

105 PRINTILS; 

110 PR I NT V*" PLAYER'S NAME": PR IN 

TTAB(4) ; : INPUTVN»(X) 

120 PRINTVN*<X>"'S NUMBER" ;: INPU 

TVN ( X ) 

130 NEXT X 

140 CLS: PR I NT* 163, "STATSKEEPER I 

NITIALIZATICN":PRINT" 

COMPLETE" 

150 PRINT3389, "PRESS <ENTER> TO 

BEGIN";: PRINT" SCO 

REKEEP I N5 " ; : PR I NT3462 , " " ; : L I NE I 

NPUTCN*:CLS 

210 PRINT" > ENTER PLAYER'S TE 

AM < ": PRINT" (H)CME OR (V 

) IS I TOR" 

211 T*=INKEY*:IF T*="" THEN 211 

212 CLS: IF T*» M V" THEN 400ELSE P 
RINTH*" STATISTIC" 



DOWNLOADING EROM 
V I DEOTEX 

By Jorge Mir 

VIDEOAID is an enhancement to 
the VIDPRINT program which was 
published in last month's RAINBOW. 
It clears up some bugs, but it also 
si lows you to download programs from 
CompuServe and BBS systems. 
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You must first modify VIDEOTEX. 
If you have lcK, just load VIDEOTEX, 
type FOKE2103.253 and <EMTER>. Then 
save the revision to tape by using 
CSAVEM "VIDEOTEX" , 1728,3839. 1728. 
Use the new tape from now on. 

These uiith (52^ ) can do a little 
more. First load VIDEOTEX. Then 
type PCLEAR1. load the VIDFIX 
program below, and run it. Then 
reload the corrected VIDEOTEX (the 
oi3 generated to tape by VIDFIX). 

Both systems can now run the 

revised VIDEOTEX. After you 

disconnect, RESET the computer to 
return to EASIC. 

Now, load VIDEOAID (below). 
First type P0KE25.6:P0KE26, 1 
<ENTER>. Then load VIDEOAID with 
the normal CLOAD. 

You can now type single letters 
to do the following: <Ei Go back to 
previous page! (SPACE> Next page; 
^S> Srve page being viewed to tape; 
<L> load previously saved page; <C> 
Change tc specific paqes <P> Print 
page being viewed; <D> Download. 
Make sure? the printer is on before 
using ■■ F! , the recorder before using 
■L> or <1>. 

Uhcn you download, a white 
cursor will appear at the top 
left-hard corner of the screen. Use 
the arrow keys to move. If you move 



the cursor off the screen down, the 
ne::t page will come up. and 
vise-versa. 



Mark the program 
download by; 



you wish to 



Press <B> for beginning. Move 

the cursor to the top of the first 

character and press the "E". You 

won't notice any change in the 
screen, however. 

Marl- the end of each line with 
an <L>. Place the cursor on top of 
the last character. Press "L". 

Nark the end of the program. 
Use an <E> instead of an <L> as in 
the previous step. The program will 
then get ready to load onto tape. 
You will be prompted to assign a 
program name, and there will be a 
delay while the program reformats 
information for the tape recorder. 

You can then RUN the program 

again or, if you wish to make a 

second copy, simply SOTO10, advance 

to the last page, type <D>, mark the 

last character with the <E> and it 
will be done again. 

(Continued en Page 16) 



C_ C _ 



WR I 



"R: 



WORD PROCESSING 
lor tht 
TRS-BO* Color Computer 

Krittm in uiir eodifiable Extended BASIC ind fitturti Pigi 
Forutting, Block Kovt, Tibi, Dilation, Insertion, Global 
Search ind Replace, Centering, Indenting, Pige Piute, ASCII 
Code Tnnniiiion, Juetification, end File Chaining. 

16 or 32K verilon aelectible at run tin. The uier ny ion 
the repeating curior anynhere In a icntenci to iniert, 
delete, or change teat. The ASCII code feature coablned 
Kith powerful editing aakei C. C. HR1TER ideal for print 
graphics, C. C. MRITER dill drive any printer that can be 
connected to the Color Coiputer. C. C. NRITER n tieple to 
learn but hai powerful featurei. 

Send for free inforaition or 130.00 for the prograa and 
docuientation If you can't wait. 

TRANS/TECH 
194 Lockwood Lane 

Bl oomi ngdal b, IL 60108 

I TRS-BO ii a Tradeaark of Tandy Corp. 
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GET AMD PUT 

High-Res Graphic Movement 



Sy J. E. Eennett 



How mould you like to be able to move an image around the screen in 
BASIC. Sure, there are several ways to accomplish this. One way is to 
dram a picture, erase it, and then draw it in a new location. 

The problem with this method is that it is very slom and creates a 
flickering effect. Tandy came to our rescue mith the Color Computer 
graphic commands GET and PUT. These commands help you avoid the problems 
of SFeed and flicker, and still use just BASIC to mrite your programs. The 
manual for Extended Color Basic has a good discussion of these commands, 
but doen't explain their use to the average programmer. This article will 
explain horn you can use these commands in your own programs. 

First, there are sevral other things that must be done before you can 
call up GET and PUT. In order to illustrate these things, me mill write a 
Frcgram to help us. 

The first item on our list is to define the sire array me will need 
tor our picture. This array will be used each time we either GET a picture 
or F-UT a picture. Its size is limited to horn much memory me mish to 
dedicate to the picture. On a 16K RAM Color Computer, you have about 1400 
elements of array storage. This is because each element uses 5 bytes of 
memory. At 1400 elements, you will use 7000 bytes (1400 elements * 5 bytes 
= 7K). In the highest mode of resolution, this leaves little for program 
use. To figure out the size array needed, just dram your picture. to 
scale, on paper. Then count horn many pixels across it is (width) and how 
many pixels high it is (length). 

As an example, enter this program and run it: 

10 PM0DE 4il«PCLS«SCREEN 1,1 

10 CIRCLE (123,96), 5 
20 GOTO 30 

This program displays a circle in the center of the screen, 10 pixels 
across. The array size needed to cnvsr this circle is 10 wide by 10 long. 
This gives us an array of 100 elements in size, and uses 500 bytes of 
memory. Using this size, add the following line to the example program 
you've typed ins 

5 DIM A<9,9) 

The GET command has a format that you must follow to insure accurate 
co-.erage of the picture you wish to store. This format is: GET 
tSTARTPOINT) - (ENDF0INT), DESTINATION. G 

The- STARTP0IMT is the upper left corner coordinates of your display. 
The ENDP0INT is the lower right corner coordinates of your display. The 
DESTINATION refers to the array name you have DINensioned in Line 5, in 
this case, arra^j A. The "G" mill tell the computer that you mish to have 
the array stored with full graphics detail. This is optional, but we'll 
use it here and you should, too, for best results. 

Mow back to the program. Mat e the following changes: 

10 A=i;S:P=96: CIRCLE (A.E),5 _ • ... 

(Continued on Page 1 1 > 



GET (Continued from pg. 10> Page 11 

What we've done is change the center point of the circle to be stated 
in terms of variables instead of fi::ed numeric points. Our circle mill 
still be in the center of the screen, but uie can now use the variables 
later without redefining their value. 

Nowi add the following line: 

25 GET <A-5,B-5)-(A+5,B+5>,A,G 

As you can see, we have used the variables to allow us to set our 
start and end points more easily. The numeric equivalents of the variables 
would show we are now defining a square that is 10 pi::els on a side. This 
will allow us to GET the complete circle we have previously drawn. 

When the program is run, the circle will be stored in array A. Now 
that it is stored, what do we do with it? Well, how about drawing it in 
another location to prove it is stored in memory? We can do this by using 
the PUT command to place our circle anywhere we want on the screen. 

The PUT command has the format: PUT (STARTPOINT) - (ENDFOINT), 
SOURCE, ACTION 

The STAPTPOINT and ENDPOINT are the new locations of the corners of 
our array. These can be any values that are within screen limits AND that 
hold the array to the sine that was defined earlier in the program. In our 
example, the size is 10x10. The SOURCE is the name of the array we have 
stored earlier, array A. The ACTION is one of five options — PSET, 
PRESET, AND, MOT and OP. 

PSET is the action command we will use. This will allow all points 
(pixels) that are set in the original array to be set in the target 
locat ion. 

PRESET will reset any pixels in the target location that were 
originally set. 

AND will compare the points in the original array with the points in 
the target location. If both are sot, the new point will remain set. If 
one or the other is not set, the point will be reset. 

NOT will reverse the state of every point in the target location. 
That is, if the point is set, it will be reset; if it is reset, it will be 
set. 

OR will compare the points in the array with the points in the target 
location and if either is set, the screen will be set. 

With all this in mind, add the following lines ho your Froqram: 

10 A=A+INT(JOYSTK<0>/6.3>-5 

: E=E+ 1 NT < JOYSTK ( 1 ) /6 . 3 ) -5 
40 PUT <A-5,E-5)-(A+5,E+5),rt 

PSET 
50 GOTO 30 

Line 30 will now allow the right Joystick to control movement in any 
direction at a maximum speed of up to five pixels at a time. This movement 
can be stopped by bringing the joystick to the exact center. The farther 
you move from the center, the faster the circle will move. Line 40 will 
PUT the circle at the location you have defined with the joystick. Line 50 
will branch the program back to Line 30 for an update of the joystick 
location. (Czntinued en Faae 12 1 



Page 12 GET (Continued from pg. I!) 

Run the program and you will 
see that there are several problems 
with the operation. First, if you 
allow the circle to get too close to 
the screen edge, you will get a 
function call error. Let's take 
care of this problem 'by limiting the 
screen movement of the circle. We 
do this by adding: 

31 IF A<=5 THEN A=5 

32 IF A>=250 THEN A=250 

33 IF B<-5 THEN B=5 

34 IF B>=186 THEN E=186 



Now we have a circle that will 
move under direction of the joystick 
and does not flicker. The speed of 
movement can be altered by changing 
the values in line 30, but you must 
also chanqe the sire of your array 
if you wish a faster movement. 
Otherwise, you will again leave a 
trail of picture parts on the 
screen. 

Experiment with the other 
action command options. You might 
be Fleasantly surprised with them. 



After adding these lines, we 
can move the circle anywhere on the 
screen and it will stop or move 
along the edge if it gets close. 
The other problem we have is that 
the circle leaves a trail as it 
moves. While this can be used to 
create some pretty patterns, that 
isn't what we want to do. 



Now that you have a better 
understanding of GET and PUT, look 
back through the last several issues 
of the RAINBOW and see how I used 
them in LASER STAR and HELO BATTLE. 
Remember, you have to use the same 
PMODE to PUT that you used to GET, 
or you may not obtain the results 
you tried to achieve. 



We can eliminate the problem in 
two ways. Either we must enlarge 
the array to allow for the five 
pi:;el maximum movement of the 
circle, or Me must decrease the size 
of the dr«uiing to allow for a blank 
border around the drawing. 

Both methods have drawbacks, 
but either can be used. If you 
increase the array sire, you will 
use more memory and chance running 
into the nefarious 0(1 error if your 
program is long. If you decrease 
the drawing size, you lose 
resolution, possibly affecting the 
effect you wanted. Since we have 
Flenty of memory in this small 
program, we will use the first 
method. Make the following 
changes: 

Change Line 5 to! 
5 DIMA(20,20> 

Change Line 25 to: 
25 GET (A-10,B-10)-(A+1O.B+10). 
A,G 

Change Lines 31-34 to: 
3.1 IF A<=10 THEN A=10 

32 IF A>=245 THEN A=245 

33 "IF B<=10 THEN I'=10 

34 IF B>=181 



Have fun with these and be sure 
to let me know via the RAINBOW how 
you are doing or if you have any 
questions or problems with which I 
can help. 



the RAX NBOU 
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TRS-50, Color Computer and Extended Color I=si c are 
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All programs herein are distributed on an 'as-is' 
basis, without warranty. 

Subscriptions to the RAIMOU are 112 per yEir. 



COFiRECT I ON 



On page £ of RAINBOW Vol. I- 
No. 4, in the continuation of Al 
Morgan's VIDEO PRINT proqram, under 
the instructions, substitute the 
direct command POKE 25.6 for the 
PCLEAP1. 



Change Line 40 to: 
40 PUT (A-10,E-10)-(A+10,B+10), 
A.PSET 



Al says this will 
program work correctly. 
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EDITOR, 
ASSEMBLER 

RND MORE! 



TIRED OF WAITING FOR SOFTWARE DELIVERY? 

WE SHIP FROM STOCK! 




SOFTWARE 

DEVELOPMENT 

SYSTEM 



The Micro Works Software Development 
System (SDS80C) Is a complete 6809 
editor, assembler and monitor package 
contained in one Color Computer program 
pack! Vastly superior to RAM-Based 
assemblers/editors, the SDS80C Is non- 
volatile, meaning that if your application 
program bombs, It can't destroy your 
editor/assembler. Plus it leaves almost all 
of 16K or 32K RAM free for your program. 
Since all three programs, editor, assembler 
and monitor are co-resident, we eliminate 
tedious program loading when going back 
and forth Irom editing to assembly and 
debugging! 

The powerful screen-oriented Editor 
features finds, changes, moves, copys and 
much more. All keys have convenient auto 
repeat (typamatic). and since no line 
numbers are required, the full width of the 
screen may be used to generate well com- 
mented code. 

The Assembler features all of the 
following: complete 6809 instruction set; 
complete 6800 set supported for cross- 
assembly; conditional assembly; local 
labels; assembly to cassette tape or to 
memory; listing to screen or printer; and 
mnemonic error codes instead of numbers. 

The versatile ABUG monitor is a compact 
version of CBUG, tailored for debugging 
programs generated by the Assembler and 
Editor. It features examine/change ol 
memory or registers, cassette load and 
save, breakpoints and more. 
SDS80C Price: U9.SS 




SOURCE GENERATOR: This package Is a 
disassembler which runs on the color 
computer and enables you to generate 
your own source listing of the BASIC 
Interpreter ROM. Also Included Is • 
documentation package which gives 
useful ROM entry points, complete mem- 
ory map, I/O hardware details and more. 
Disassembler features Include cross- 
referencing of variables and labels; output 
code which can be reassembled; output to 
an 80-column printer, small printer or 
screen; and a data table area specification 
which defaults to the table boundaries in 
the interpreter ROM. A 16K system Is 
required for the use of this cassette. 
80C Disassembler Price: $49.95 



LERRN E8D9! 



6809 Assembly Language Programming. 
by Lance Leventhal, contains the most 
comprehensive reference material avail- 
able for programming your Color 
Computer. 
Price: $16.95 



PRRRLLEL O! 



USE A PARALLEL PRINTER with your 
Color Computer! Adaptor box plugs into 
the serial port and allows use of 
Centronics'Radio Shack compatible 
printers with parallel interface. Assembled 
and tested. 
PI80C Price: $69.95 



CBUC 15 HERE! 



MONITOR TAPE: A cassette tape which 
allows you to: 

• Examine or change memory using a 
formatted hex display 

• Save areas of memory to cassette In 
binary (a "CSAVEM") 

• Download/upload data or programs to a 
host system 

• Move the video display page throughout 
RAM 

• Send or receive RS-232 at up to 9600 
baud 

• Investigate and activate features of your 
computer, such as hires graphics or 
machine-language music 

• Use your color computer as an Intelli- 
gent peripheral lor another computer, a 
color display or a 6809 program develop- 
ment tool 

The monitor has 19 commands in all, and is 
relocatable and re-entrant. 
CBUG Tape Price: $29.95 

MONITOR ROM: The same program as 
above, supplied In 2716 EPROM. This 
allows you to use the entire RAM space. 
And you don't need to re-load the monitor 
each time you use it. The EPROM plugs 
into the Extended Basic ROM Socket or a 
modified ROMPACK. 
CBUG ROM Price: $39.95 



32K RRM! 



MEMORY UPGRADE KITS: Consisting of 
4116 200ns. integrated circuits, with 
Instructions for installation. 4K-16K Kit 
Price: $39.95. 16K-32K Kit (requires solder- 
ing experience) Price: $39.95 
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Page H BIO (Continued from pg. 6) 

400 PR I NT "CHART DATE IS EARLIER 

THAN B I RTH " ; : PR I NT " DATE . PLEASE 

TRY AGAIN. " : FORI=1T0600: NEXTI : SO 

TD280 

410 F0RK=1TD100:NEXTK 

420 G0SUB790 

430 N=JC-JB 

440 V=23:60SUB880:G0SUB900 

450 V=28 : G0SUBB80 : G0SUB900 

460 V=33 : G0SUB880 : G0SUB900 

470 G0SUB1070 

480 G0SUB1540 

490 Zl=Zl+l:PRINT#-2,"* "+C*;TAB 

(15)L«;TAB(75)DW*+" *" 

500 DW1=DW1+1 

510 IF DW1>7 THEN DW1=1 

520 JC=JC+1:L=L+1:IF L<E1 THEN 4 

30 

530 IF Z1>=E1 THEN 1220 

540 L=0:G0T0420 

550 S4=S4+1: PRINT 

560 INPUT "MONTH (1 TO 12) "jM 

570 IF S4<=1 THEN L1=M 

580 M=INT(M):IF M< 1 OR M>12 THEN 

560 
590 INPUT "DAY (1 TO 31) ";D 
600 IF S4<=1 THEN L2=D 
610 IF ZZ=1 THEN 620 ELSE 640 
620 CLS:PRINTS>96, "PLEASE ENTER T 
HE DAY OF THE WEEK" ;: PRINT" 1=M0N 
DAY " : PR I NT " 2=TUESDAY " : PR I NT " 3=WE 
DNESDA Y " : PR I NT " 4 =THURSDA Y " : PR I NT 
" 5=FR I DAY ": PRINT " 6=SATURDAY " : PR I 
NT"7=SUNDAY" 
630 INPUTDW1 

640 D=INT(D):IF D<1 OR D>31 THE 
N 590 

650 INPUT-YEAR (ENTER ONLY LAST 
TWO DIGITS OF THE YEAR)";Yt 
654 IF LEN(Y*)>=3 THEN GOTO 650 
ELSE GOTO 660 

660 Y=VAL(Y*):IF S4<=1 THEN L3=Y 
670 IF S4<=1 THEN D4=M+D+Y 
680 Y=INT(Y):IF Y<0 THEN 650 
690 IF Y>99 THEN 710 
700 Y=Y+1900:PRINTY; "ASSUMED. ":F 
OR I = 1 T0500 : NEXT I : CLS 
710 RETURN 
720 W=FIX< (M-14)/12) 
730 JD=INT(1461* ( Y+4300+W) /4) 
740 B=FIX (367» (M-2-W*12)/12> 
750 JD=JD+B 

760 B=INT ( INT (3* (Y+4900+W) /100) / 
4) 

770 JD=JD+D-32075-B 
760 RETURN 

790 IFB*="YES"AND Z>=1 THEN RETU 
RN ELSE 800 
800 Z=Z+1:CLS 

eiO PRINT*-2,TAB<36) "BIORHYTHM" 
820 FRINT#-2,TAB(39> "FOR" 
830 Xl=(40-(INT(LEN(N*>/2> ) ) 



840 PRINT#-2,TAB(X1)N*;CHR*<)0> ; 

CHR*(10):PRINT#-2, "THIS CHART IS 
FOR"El"DAYS. ";TAB(55) "BIRTHDATE 
IS"L1; "/";L2; "/";L3;CHR4 ( 10) 

850 FRINT#-2," DATE ";TAB(17); 

860 PRINT#-2, "L O W";TAB (40) "O"; 

TAB (55) "H I G H"; TAB (73)" DAY 

870 PRINTK-2, STRING* (80, 95) : RETU 

RN 

8B0 W=INT(N/V> :R=N-(W*V> 

890 RETURN 

900 IF V<>23 THEN 950 

910 L*=CHR*(32) :F0R K=l TO 5:L*= 

L*+L*:NEXT 

920 L*=L*+LEFT*(L«, 19) 

930 LS=LEFTS(L*,T)+CHR*(48)+RIGH 

T*(L*,T) 

940 IF V=23 THEN C*="P" 

950 IF V=28 THEN C*="E" 

960 IF V=33 THEN C*="I" 

970 W=R/V:W=W*2*P 

980 W=T«SIN(W) :W=W+T+1.5 

990 W=INT(W> :A*=MID*(Lt,W, 1) 

1000 IF A*="P" OR A*="E" OR A*=" 

*" THEN C*="*" 

1010 IF W=l THEN 1050 

1020 IF W=T+T+1 THEN 1060 

1 030 Lt=LEFT* ( L* , W- 1 ) +C*+R I GHT* ( 

L*,T+T+1-W) 

1040 RETURN 

1050 L*=C*+RIGHT*(L*.T+T) : RETURN 

1060 L*=LEFT*(L*,T+T)+C»: RETURN 

1 070 W= JC+68569 : R= I NT ( 4 * W/ 1 46097 

) 

1080 W=W-INT( (146097*R+3)/4) 

1090 Y=INT(4000*(W+1)/1461001) 

1100 W=W-INT(1461*Y/4)+31 

1110 M=INT(B0*W/2447) 

1120 D=W-INT(2447*M/80> 

1130 W=INT(M/11) :M=M+2-12*W 

1140 Y=100* (R-49)+Y+W 

1150 A*=STR*(M) :W=LEN(A»)-1 

1160 C*=MID*(A*.2.W)+"/" 

1170 A*=STR*(D) :W=LEN(A*)-1 

11B0 C*=C*+MIDt (A*,2,W)+"/" 

1190 A*=STR*(Y) :W=LEN(A*)-1 

1200 C*=C*>MID*(A*,W,2) 

1210 RETURN 

1220 PR I NT 1 AB(ll) "END OF RUN": PR 

INT#-2, STRINGS (80, 95) : PRINTtt-2, T 

AB(36) "END OF RUN" 

1230 PRINT»-2,CHR*(31> ; TAB (17) "T 

HANK Y0U";CHR*(10) ;CHR*(30) 

1240 CLS: PRINT.T>224, "ANOTHER RUN 

(Y/N)?" 

1250 AR*=INKEY*: IFAR4=" "THEN 1250 

1260 IFAR*O"Y"THEN1270ELSE50 

1270 CLS:PRINT3224, "THANKS ANYWA 

Y, BYE FOR NOW. " : F0RI=1T01 000: NE 

XTI:CLS:END 

(Continued on Page 17 



BT ATS (Continued from pq. 3) 

213 PRINT "ENTER PLAYER'S NUMBER 
":PRINTTAB<4)"<0R '99' FOR BOX) " 
: PRINT 

214 ZA«=INKEY*:IFZA*="" THEN 214 

215 ZB*=INKEY»: IFZB*="" THEN 215 

216 ZC*=ZA*+ZB* 

217 PN=VAL(ZC*> 

220 IF PN=HN(1> THEN 300 

221 IF PN=HN<2> THEN 311 

222 IF FN=HN(3) THEN 312 

223 IF PN=HN<4) THEN 313 

224 IF PN=HN(5) THEN 314 

225 IF PN=HN(6) THEN 315 

226 IF PN=HN(7) THEN 316 

227 IF PN=HN<8) THEN 317 
22B IF PN=HN(9) THEN 318 

229 IF PN=HN(10) THEN 319 

230 IF PN=HN<11) THEN 320 

231 IF FN=HN(12) THEN 321 
240 IF PN=99 THEN 4000 
250 STOP 

300 PH=1:PRINT"FLAYER: "HN*(l)lG 
DTD 1 000 

311 FH=2: PRINT "PLAYER: "HN*<2): 
GOTO 1000 

312 PH=3: PRINT "PLAYER: "HN*<3>: 
GOTO 1000 

313 PH=4:PRINT "PLAYER: "HN*<4>: 
GOTO 1000 

314 PH=5sFRINT "FLAYER: "HN*(5>: 
GOTO 1000 

315 PH=6:PRIUT "PLAYER: "HN*(6>: 
G0T01000 

316 PH=7:PRINT"PLAYER: "HN*(7):G 
0T01000 

717 PH=3:PRINT"PLAYER: "HN*(8):G 

DT01000 

3! 8 FH=9:PRINT"PLAYER: "HN*<9)lG 

DT01000 

719 PH=10:PRINT"PLAYER: "HNMIO) 

: SOTO 1000 

320 PH=11: PR INT "PLAYER: "UN* (11) 

-.GOTO 1000 

721 PH=12:PRINT"PLAYER: "HN*<12) 

: GOT 01 000 

«00 PRINTV*" STATISTIC" 

410 PRINT" ENTER PLAYER'S NUMBE 

' • -PRINTTAB(4) " (OR '99' FOR BOX) 

it-RINT 
420 PRINT 

470 ZA*=INKEY»: IF ZA*=""THEN430 
433 ZB*=INK.EY»: IF ZBi=" "THEN433 
475 ZC*=ZA*+ZB* 
4 40 F,N=VAL(ZC5) 
COO IF PN=VN(1) THEN 600 

501 IF FN=VN(2) THEN 601 

502 IF PN=VN<3) THEN 603 

503 IF PN=VN(4) THEN 604 

504 IF PN=VN<5) THEN 605 

505 IF PN=VN(6) THEN 606 

506 IF FN=VN(7) THEN 607 

507 IF PN=VN(8) THEN 608 

508 'f 7 rM-.- !, M#Q% Tt*7N ArtP 



"VN*(1> :G 

"VN*(2) :G 

"VN*<3> :G 

"VN*<4) :G 

"VN*(5):G 

"VN* (6) :G 

"VN4(7) :G 

"VN*(8):G 

"VN*(9) :G 

"VN*(10> 

"VN*(11) 

"VN*<12> 



509 IF PN=VN(10) THEN 610 Fa ? e 15 

510 IF PN=VN(11> THEN 611 

511 IF PN=VN(12) THEN 612 

512 IF PN=99 THEN 5000 

600 PV=1:PRINT"PLAYER 
0T01900 

601 PV=2:PRINT"PLAYER 
0T01900 

603 FV=3 : PR I NT " PLAYER 
OTO190O 

604 PV=4:PRINT"PLAYER 
0T019C0 

605 PV=5:PRINT"PLAYER 
0T01900 

606 PV=6:FRINT"PLAYER 
0T01900 

607 PV=7:PRINT"PLAYER 
0T01900 

608 FV=8:PRINT"PLAYER 
0TC1900 

609 PV=9:FRINT"PLAYER 
0T01900 

610 FV=10:FRINT"PLAYER: 
: GOTO 1900 

611 PV=11:PRINT"FLAYER: 
:G0T01900 

612 PV=12: PRINT "PLAYER: 
: GOTO 1900 

1000 PRINT: PRINT: PRINTTAB( 12) "<E 
NTER>" 

1001 PRINTTAB(3) " (G) OAL" ; TAB ( 17) 
" (N)0 6CAL" 

1002 PRINTTAB(3) " (F)REE THROW" :T 
ABU7) " <L) INE MISS" 

1003 PRINTTAB(IO) " (E)NTERED GAME 

1010 HC*=INKEY*: IF HCt="" THEN 1 
010 ELSE PRINT HC* 

1015 CLS 

1020 IF HC*="0" THEN HG(PH)=H3(P 
H) + 1 : H5 (PH> =HS (PH) +1 : PA=PA+1 : PM= 
PM+ 1 

1030 IF HC*="N" THEN HS(PH)=HS(P 
H)+1:PA=PA+1 

1040 IF HC*="F" THEN HF(PH)=HF(P 
Hi f 1 : HL (PH) =HL (FH) +1 : FF=FF+1 : LT = 
LT+1 

1045 iF KC*="L" THEN HL(FH)=HL(P 
li) «-lsLT=LT+l 

1047 IF HC4="E" THEN MP (PH) =MP (P 
li) ■■ 1 

1030 G0T0210 

1 90'.' pr i nt : pr i nt : pr i ntt ab ( 1 2 ) " < e 

nter: " 

1910 pp1nttab(3) " (g) oal" ; tab < 1 7) 

" (N)0 GOAL" 

1920 PRINTTAB(3) " (F)REE THROW" ;T 

AB(17> " (L) INE MISS" 

1930 FRINTTAB(IO) " (E)NTERED GAME 

1950 VC*=INKEY»: IF VC«="" THEN 1 

950 ELSE PRINT VCS 

I960 CLS (Continued on Page 17) 



Face 16 

DOWNLOAD (Continued from pq. 9> 

I am sure this combination will 
open all kinds of different 

opportunities for you. It has for 
me. 

The listinqs: 

1 REM «#OIDFIX EY JORGE MIR*» 

2 REM *# (c) 1981 
10 A=302O8 

20 POKE 2103,255 

30 POKE 2112.53 

40 FOR X=1728 TO 383? 

50 POKE A.PEEK(X) 

55 PRINT CHR*(PEEK(X) ) ; 

t0 A=A+l:NEXT X 

70 PRINT: PRINT" READY RECORDER" 

80 IF INKEY*»""THEN 80 

90 FOR X=l TO 5 

100 CSA0EM""IDE0TEX", 30208, 

32319,30208 
110 MOTOR ON 

120 FOR Z=l TO 500: NEXT Z 
13B MOTOR OFF 
140 END 



7 **<->IDE0AID«* 

3 **<c) By JORGE MIR, 1981*« 



CLEAR512:PAGS=6:G0SUB120 

DEFFNA <L> =INT (L/32) *32 

A*= I NKEY* : I F I NKEY*= " " THEN20 



IFA*= 
IFA*= 
IFA* = 
IFA*= 
IFA*= 
IFA*= 
IFA*= 



' "THENPAGE=PAGE+1 

' B " THENF ASE=PABE- 1 

•D-THEN340 

•S"THEN290 

'P"THEN240 

•L"THEN300 

"THEN60SUB310 



10 

15 

20 

30 

40 

50 

60 

70 

80 

90 

100 GDSU8110:60T020 

110 IFPAGE>62THENPAGE=0:G0T020 

120 FOR F=OT01:FOR E=0T01:F0R D= 

0T01:F0RC=0T01:F0R B=0T01:F0R A= 

0T01 

130 IFPAGE=A*32+B*16+C*8+D*4+E*2 

+F THEN ISO 

140 NEXTA,B.C.D.E,F 

FOR X=65478 TO 65488 STEP2 
POKEX, 200: NEXT X 
IFF=1THENP0KE65479, 100 
IFE=1THENP0KE65481, 100 
IFD=1THENP0KE65483, 100 
IFC=1THE;'JP0KE£54S5. 100 
IFB=1THENFCKE65487, 100 
IFA=1THENPQKE65489, 100 
P=PAGE *5 1 2 : RETURN 
L=0:A*="":FOR X=PT0P+511 
A=PEEK(X) : IFA=>96ANDA<=127TH 

ENA=A-64 

260 A*=A*+CHR*(A):L=L+1:IFL<>32T 

HEN280 



1J 

160 
170 
180 
190 
200 
210 
220 
230 
240 
250 



270 PRINT*-2,A*:L=0:A*="" 

280 NEXTX:G0T020 

290 CSAVEM"P"+M1D*(STR*(FAGE> ,2) 

, P, P+51 1 , P: G0T020 

300 G0SUB530: CLOADMER*: PA6E= (PEE 

K<WH01E7>*256+PEEK(&H01E8> )/512: 

GOSUB 1 20 : G0T020 

310 CLS:PRINT"Y0U ARE VIEWING PA 

GEtt"PAGE 

320 PRINT-LOCATED AT"P" ( "HEX* (P) 

330 PRINT: INPUT "ENTER NEW PAGE # 

"; PAGE: RETURN 

340 A1=PEEK(P) :P0KEP,207:A3=P 

350 I*=INKEY*: IFI*=" "THEN350 

360 I=ASC(I») 

370 IFI*="B"THENBE=P ELSE IF I*= 

"E" THENP0KEP+ 1,255 ELSE IF I*=" 

L" THEN POKEP+1,13 ELSE IF I*="C 

" THEN POKEP+1,96 ELSE IF I*="Q" 

THEN G0SUB600 ELSE IF 1=9 THEN 
P=P+1 

380 IFI=93THENP=INT(F/32>*32+31 
ELSE IF 1=21 THEN P=INT (P/32) *32 
ELSE IF 1=94 THENP=P-32 ELSE IF 
1=10 THEN P=P+32 ELSE IF 1=8 TH 
EN P=P-1:ELSE IF 1=9 THENP=P+1 
390 POKE A3,A1: IFI*="E"THEN430 
400 IFP>PAGE*512+51 1THENPAGE=PA6 
E+l : P1=P~FNA (P) : G0SUB1 10: P=P+P1 
410 IFP<FAGE*512THENPAGE*PA6E-1 : 
GCSUB110 
420 G0T0340 

430 CLS:PRINT"GET RECORDER READY 
" : I NPUT " PROGRAM NAME " ; I * 
440 0PEN"0",-1, I* 
450 V=PEEK<BE) : IFV=255 THEN480 
460 IFV=>96 AND V<=127 THEN V=V- 
64 

470 IFV=13THEN480 ELSE IF V=S TH 
EN 490 ELSE L*=L*+CHR* <V> : G0T049 


480 PRINTL*:FRINT(*-1,L*: IFV=255T 
HEN510ELSEL*="" 

490 IFV=32 THEN S=32 ELSE S=96 
500 BE=BE+1 : G0TC450 
510 CL0SE-1:CLS:PRINT"D0WNL0AD H 
AS BEEN COMPLETED" 
520 END 

530 I NPUT " PAGE " ; PG : I FPG=OTHENSR 
*=" ,, ELSESR*="P"+MID* (STR* (PG) , 2) 
535 RETURN 
600 FOKEP, 175 

610 I *= I NKEY* : I F I «= " " THEN6 1 
620 A1=ASC(I*>: IFA1=>32ANDA1<=63 
THENA 1 =A 1 +64 : P=P+ 1 : RETURN 
630 RETURN 

640 P0KEA3, Al : P= INT (P/32) * 32+63: 
FOR F=P TO P-32 STEP-1 : IFFEEK (P> 
=96THENNEXT 

641 RETURN 



STATS (Continued from pq. 15) 
1970 IF VC*="G" THEN VG(PV)=VG<P 
V) +1 : VS (PV) =VS <PV> +1 : JP=JP+1 : JM= 
JM+1 

1975 IF VC*="N" THEN VS(PV)=VS<P 
V)+1:JP=JP+1 

1980 IF VC*="F" THEN VF<PV)=VF(P 
V) +1 : VL <PV) =VL (PV) +1 : KT-KT+ll KF= 
KF+1 

1985 IF VC*="L" THEN VL(PV)=VL(P 
V)+1:KT=KT+1 

1990 IF VC*="E" THEN VE(PV)=VE<P 
V)+l 

1995 G0T0210 
1997 STOP 
2020 G0T0210 

4000 CLS: PR I NTH* " BOX SCORE" 
4010 PRINTSTRING*<32,"-"); 
4015 PRINTBZ*; 
4020 FOR X=l TO SS 
4025 HT(X)=(HG(X)*2)+HF(X) 
4030 IF MP(X)>0 THEN PRINTUSINGB 
S*;HN*(X),HG(X) ,HS(X),HF(X> , HL ( X 
) , HT ( X ) 

4035 GH=GH+HG ( X ) : SH=SH+HS ( X ) : FH= 
FH+HF ( X > : LH=LH+HL ( X ) : TH=TH+HT ( X ) 
4040 NEXT X 

4045 PRINTUSINGBT*;GH,SH,FH,LH,T 
H 

4047 IF SH>0 THEN GP= (GH/SH) *100 

4048 IF LH>0 THEN FP= (FH/LH) *100 

4049 FRINTUSINGFC*;GP,FP 

4050 PRINT3J480, " " ; : INPUT "CONTI 
NUE";CN* 

4060 CLS : GH=0 : SH=0 : FH=0 : LH=0 : TH= 

0:60T0210 

5000 CLS:PRINTV*" BOX SCORE" 

5010 PRINTSTRING*<32, "-") ; 

5015 PRINTBZ*; 

5020 FOR X=l TO W 

5025 VT<X)=(VG(X)*2)+VF<X) 

5030 IF VE(X)>0 THEN PRINTUSINGB 

S* ; VN* < X > , VG < X ) , VS ( X > , VF < X > , VL < X 

),VT(X) 

5035 6V=GV+VG ( X ) : SV=SV+VS ( X ) : FV= 

FV+VF < X ) : LV=LV+VL ( X ) : TV=TV+VT ( X ) 

5040 NEXT X 

5045 PRINTUSINGBT*:SV,SV,FV,LV,T 

V 

5047 IF SV>0 THEN BP= (GV/SV) *100 

5048 IF LV>0 THEN CP= (FV/LV) *100 

5049 PRINTUSINGPC*;BP,CP 

5050 PRINT3)4BO. " ";: INPUT "CONTI 
N'JE";CN* 

5060 CLS: GV=0: SV=0: FV=0: LV=0: TV= 
0:60T0210 



Page 17 
BIO (Continued from pg. 14) 
1520 FOR 1=1 TO 5:PRINT#-2,CHR*< 
10): NEXT I: RETURN 
1530 GOTO 10 

1540 ON DW1 GOTO 1550, 1560. 1570, 
1580, 1590, 1600, 1610 
1550 DW*="MON": RETURN 
1560 DW*="TUE": RETURN 
1570 DW*=" WED": RETURN 
1580 DW*="THU": RETURN 
1590 DW*= " FR I " : RETURN 
1600 DW*=" SAT": RETURN 
1610 DW*="SUN": RETURN 
1650 CLS: PRINT: PRINT: PRINT: PRINT 
"NAME : " ;N* 

1660 PRINT: PR I NT "CHART IS FOR " ; 
El;" DAYS." 

1665 FRINT: PRINT: INPUT" IS THIS I 
NFCRMAT I ON CORRECT <Y/N)";X* 

1666 IF LEFT*(X*, 1)<>"Y" THEN GO 
TO 260 

1670 RETURN 

1 700 CLS : PR I NT : PR I NT : PR I NT " MONTH 

:";M 
1710 PRINT:PRINT"DAY :";D 
1720 PR I NT: PR I NT "YEAR :";Y 
1730 PRINT: INPUT" IS THIS INFORMA 
T I ON CORRECT (Y/N) :";X* 
1735 IF LEFT*(X*, 1)<>"Y" THEN GO 
TO 300 ELSE RETURN 
1750 CLS: PR I NT: PR I NT: PR I NT "MONTH 

:";M 
1760 FRINT: PRINT"DAY : " ; D 
1770 PRINT: PR INT "YEAR :";Y 
1780 PRINT: INPUT" IS THIS INFORMA 
T I ON CORRECT <Y/N) : " ; X* 
1790 IF LEFT*(X*, DO"Y" THEN GO 
TO 340 ELSE RETURN 
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